home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Macintosh CD: Powe…osh 6100/7100/8100 Series
/
Apple Macintosh CD - Power Macintosh 6100, 7100, 8100 series.7z
/
Apple Macintosh CD - Power Macintosh 6100, 7100, 8100 series.bin
/
Power Macintosh Demo Apps
/
Wolfram
/
Color Movie
< prev
next >
Wrap
Text File
|
1994-03-01
|
12KB
|
131 lines
(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";
MacintoshStandardFontEncoding;
fontset = title, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, M7, bold, L3, e8, 24, "Times";
fontset = subtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "New York";
fontset = subsubtitle, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeTitle, center, M7, bold, L2, e50, 14, "New York";
fontset = section, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, "New York";
fontset = subsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, "New York";
fontset = subsubsection, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 10, "New York";
fontset = text, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Times";
fontset = smalltext, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times";
fontset = input, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, "Courier";
fontset = output, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = message, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, "Courier";
fontset = print, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = info, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, evaluateAsCurrentKernel, output, inactive, nowordwrap, preserveAspect, groupLikeGraphics, M7, l35, w160, h162, L2, 12, "Courier";
fontset = name, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, "Geneva";
fontset = header, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times";
fontset = leftheader, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, nohscroll, preserveAspect, L2, 12, "Times";
fontset = footer, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times";
fontset = leftfooter, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, preserveAspect, center, L2, 12, "Times";
fontset = help, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Geneva";
fontset = clipboard, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = completions, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special1, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special2, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "New York";
fontset = special3, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, "New York";
fontset = special4, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
fontset = special5, Text, formatAsCurrentKernel, evaluateAsCurrentKernel, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York";
paletteColors = 128;
]
:[font = title; inactive; preserveAspect; startGroup]
Spinning Stellated Icosahedron
(for color monitors)
:[font = text; inactive; preserveAspect]
This notebook contains an animated “movie” produced using built-in Mathematica functions and a standard Mathematica package. To show the movie,
• Scroll until the first graphics cell is completely visible in the window.
(The movie is shown in this cell.)
• Double-click the first graphics cell to start the movie.
Click again anywhere to stop the animation.
;[s]
5:0,0;67,1;78,0;105,1;116,0;380,-1;
2:3,14,9,Times,0,12,0,0,0;2,14,9,Times,2,12,0,0,0;
:[font = text; inactive; preserveAspect]
See the file Read This First! for a more detailed explanation of how to run a movie, and how to control its speed and direction. Mathematica generates all graphics in PostScript, but the images here were saved as bitmaps to conserve disk space.
;[s]
5:0,0;13,1;29,0;129,2;141,0;246,-1;
3:3,14,9,Times,0,12,0,0,0;1,14,9,Times,1,12,0,0,0;1,14,9,Times,2,12,0,0,0;
:[font = postscript; PICT; formatAsPICT; output; inactive; Cclosed; dontPreserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; startGroup; pictureID = 13924; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 14100; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 20013; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 11022; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23646; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 13053; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 1187; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2824; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 22930; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25728; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 14921; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 18317; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 12018; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 16780; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 11810; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4477; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2886; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 11377; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 2465; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 25222; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 4897; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 8052; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 22103; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 30030; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 31986; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 30343; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 5881; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 23756; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 13405; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 6734; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; pictureID = 15511; animationSpeed = 8]
:[font = postscript; PICT; formatAsPICT; output; inactive; preserveAspect; pictureLeft = 80; pictureTop = 1; pictureWidth = 282; pictureHeight = 282; endGroup; endGroup; pictureID = 20477; animationSpeed = 8]
^*)